#!/usr/local/bin/perl -w
use strict;
use utf8;
use lib '../lib';

use NG::Sys::App 'NG::Sys::App::Cron';
use Data::Dumper;

my $app = new NG::Sys::App;
$app->run;

sub main {
	t2();
}
sub t2 {
	$app->dbh->Insert(demo=>{value=>"приве"});
	print Dumper($app->dbh->rows_hash("select * from demo"));
}
sub t1 {
	my $gapp = app();
	
	if($app == $gapp){
		print "eq\n";
	}else{
		print "no\n";
	}
	if($app == $app->run){
		print "eq\n";
	}else{
		print "no\n";
	}
	print $app->{cfg}{db_local},"\n";
	print $app->script,"\n";
	print $app->fullscript,"\n";
}